From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 31 Jul 2002 22:04:33 +0000 (+0000)
Subject: (byte-compile-find-cl-functions):
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~31291
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a9fcd151544877fb0d70e69dfc7463eddee9718e;p=emacs.git

(byte-compile-find-cl-functions):
Check that (car elt) is a string.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 936f9fec5cf..b70a79971b3 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.107 $")
+(defconst byte-compile-version "$Revision: 2.108 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -1206,7 +1206,8 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
 (defun byte-compile-find-cl-functions ()
   (unless byte-compile-cl-functions
     (dolist (elt load-history)
-      (when (string-match "^cl\\>" (car elt))
+      (when (and (stringp (car elt))
+		 (string-match "^cl\\>" (car elt)))
 	(setq byte-compile-cl-functions
 	      (append byte-compile-cl-functions
 		      (cdr elt)))))